Option Explicit
'ۭqҲ
'Dim myStr As String
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With TextBox1
        If Len(.Text) > 0 Then
        'Label1.Caption = myStr
        'DoEvents
        Else
            MsgBox "J"
            'Label1.Caption = "J"
            Cancel = True
        End If
    End With
End Sub
